home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / GUI / Simple / editbox.au3 < prev    next >
Encoding:
Text File  |  2006-06-20  |  1.7 KB  |  64 lines
  1. ;====================================================
  2. ;================= Example of a GUI =================
  3. ;====================================================
  4. ; AutoIt version: 3.0.103
  5. ; Language:       English
  6. ; Author:         "SlimShady"
  7. ;
  8. ; ----------------------------------------------------------------------------
  9. ; Script Start
  10. ; ----------------------------------------------------------------------------
  11.  
  12. ;Include constants
  13. #include <GUIConstants.au3>
  14.  
  15. ;Initialize variables
  16. Global $GUIWidth
  17. Global $GUIHeight
  18.  
  19. $GUIWidth = 300
  20. $GUIHeight = 250
  21.  
  22. ;Create window
  23. GUICreate("New GUI", $GUIWidth, $GUIHeight)
  24.  
  25. ;Create an edit box with no text in it
  26. $Edit_1 = GUICtrlCreateEdit("", 10, 10, 280, 190)
  27.  
  28. ;Create an "OK" button
  29. $OK_Btn = GUICtrlCreateButton("OK", 75, 210, 70, 25)
  30.  
  31. ;Create a "CANCEL" button
  32. $Cancel_Btn = GUICtrlCreateButton("Cancel", 165, 210, 70, 25)
  33.  
  34. ;Show window/Make the window visible
  35. GUISetState(@SW_SHOW)
  36.  
  37. ;Loop until:
  38. ;- user presses Esc
  39. ;- user presses Alt+F4
  40. ;- user clicks the close button
  41. While 1
  42.   ;After every loop check if the user clicked something in the GUI window
  43.    $msg = GUIGetMsg()
  44.  
  45.    Select
  46.    
  47.      ;Check if user clicked on the close button
  48.       Case $msg = $GUI_EVENT_CLOSE
  49.         ;Destroy the GUI including the controls
  50.          GUIDelete()
  51.         ;Exit the script
  52.          Exit
  53.          
  54.      ;Check if user clicked on the "OK" button
  55.       Case $msg = $OK_Btn
  56.          MsgBox(64, "New GUI", "You clicked on the OK button!")
  57.       
  58.      ;Check if user clicked on the "CANCEL" button
  59.       Case $msg = $Cancel_Btn
  60.          MsgBox(64, "New GUI", "You clicked on the Cancel button!")
  61.          
  62.    EndSelect
  63.  
  64. WEnd